#!/usr/bin/perl

use XML::Simple; 

$xml = new XML::Simple;
$micasa = $xml->XMLin("casa.xml");

print "Habitaciones:\n";

foreach my $habitacion (keys %{$micasa->{habitacion}}) {
  print "  -$habitacion\n";
}
